home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2000 #4 / Amiga Plus CD - 2000 - No. 4.iso / Tools / Text / HTML / HTMLEXT / GUI / func.dfue < prev    next >
Text File  |  2000-03-14  |  650b  |  32 lines
  1. G4C
  2. ; $VER: func.defue rev.015 Juan Manuel Wehrli 1999 - 2000
  3. WINBIG -1 -1 175 50 ""
  4. WinType 00000000
  5. Winout "NIL:"
  6. WinBackground IMAGE BG 0
  7.  
  8. xOnLoad
  9. GuiOpen #This
  10.  
  11. xOnOpen
  12.     CLI 'rx $*TCP ISONLINE $*TCPIF'
  13.     if $.htmlext.tmp = 0
  14.         SetVar status "Stelle DFÜ Verbindung her"
  15.         Update #This 1 $status
  16.         CLI 'rx $*TCP ONLINE $*TCPIF'
  17.     elseif $.htmlext.tmp = 1
  18.         SetVar status "DFÜ Verbindung abbrechen"
  19.         Update #This 1 $status
  20.         CLI 'rx $*TCP OFFLINE $*TCPIF'
  21.     endif
  22.     GuiQuit #This
  23.  
  24. ;Globale Gadgets
  25. TEXT 5 5 155 20 "TCP/IP Verbindung ..." 100 NOBOX
  26.     GadFont xHelvetica.font 13 010
  27.  
  28. TEXT 5 25 155 20 "... bitte warten" 105 NOBOX
  29.     GadTxt CENTER
  30.     GadID 1
  31.  
  32.